﻿
open  Microsoft.Win32;


let mutable  reg = Registry.ClassesRoot;

reg<-reg.CreateSubKey(@"*\shell\myApp");
//创建新项myApp
reg.SetValue("","制作");
//设置项值
reg <- Registry.ClassesRoot;
reg.CreateSubKey(@"*\shell\myApp\command");
//创建新项command
reg.SetValue("", @"C:\Users\Administrator\Desktop\Test\jzTest\SimpleMake\bin\Release\SimpleMake.exe" + " %1") //现只能给它执行一个程序了，想要让它触发程序中的一个事件
//设置command的值
reg.Close();